home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Expert
/
Windows Expert.iso
/
program
/
vbpxen.zip
/
ITEMEDIT.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1991-10-07
|
6KB
|
165 lines
itemedit
Tape Inventory
Form1
ButtonFind
tapenumber
Label1
Tape number:
tapetitle
ButtonPrior
&Prior
ButtonNext
&Next
Label2
Title
ButtonFirst
&First
ButtonLast
&Last
Label3
Custmomer checkout:
custnum
inout_code
Label4
In/Out:
ButtonEdit
&Edit
ButtonNew
ButtonOK
ButtonCancel
&Cancel
ButtonDelete
&Delete
ButtonDone
E&xIt
Text1_Change
ButtonFirst_Clicki
GetCustomerRecW
DBFIRST
custnumber
custrecN
custnumer
custlastname
lastname
custfirstname
firstnameC
ButtonDone_Click*
custedit
FieldsToForm
DB_OKa
ButtonNext_Clickv
DBNEXT
ButtonPrior_Click
DBPRIOR
ButtonLast_Click
last4
DBLASTB
ButtonEdit_Click
DoEditMode
ButtonFirst{
visible
FALSE
ButtonNext
ButtonPriorx
Button&
ButtonLastV
ButtonEdit<
ButtonDone
ButtonOK
TURE%
ButtonCancel
iEditMode,
iViewMode
DoViewMode
ButtonOK_Click|
ButtonCancel_ClickL
UpdateRec
CUSTOMER_TABLE
Form_Click
Form_LinkClose
Form_Load
addressa
FormToFields
ButtonDelete,
UpdateCustomerRec
ButtonFind
ButtonNew
ButtonFind_Click
DBKEY$
DBKEYED>
ButtonNew_Click
SetEditMode
EDIT_MODE
ADD_MODE
VIEW_MODE
enabled
iMode.
numvalueN
blankcustrecT
AddCustomerRec
ButtonDelete_Click
DeleteCustomerRec^
savecustrec
MB_OKCANCEL
IDCANCEL
VIEWMODE
custnumber_Change8
MB_ICONQUESTIONm
GetCustomerRecForUpdate
UnlockRecF
MousePointer&
POINTER_HOURGLASS
POINTER_DEFAULT
screen
GetItemRec{
blankitemrec
saveitemrec
tapenumber
tapetitle
itemrec
itemdesc
itemnumber
ITEM_TABLE
tapeumber1
DeleteItemRec
itemedit
GetItemRecForUpdate
AddItemRec
UpdateItemRec
custnum
caption
inout_code\
ButtonFirst_Click
ButtonDone_Click
FieldsToForm
inout_code.caption = itemrec.inout_code
ButtonNext_Click
ButtonPrior_Click
ButtonLast_Click
ButtonEdit_Click
Move the fields to the form againa
In a network environment, someone could have
changed the record since last time is was showns
ButtonOK_Click
Assume if one of these failed, a message was
already displayed as part of the function.
What to do if the add or update failed?i
For now invoke the CANCEL routine as thoughh
the user clicked the cancel button.s
Return to view mode
ButtonCancel_Click
Form_Load
FormToFields
ButtonFind_Click
SetEditMode
If a record was locked, unlock itt
this may already have been done,
but make the function call again to be safe...
Set global value as mode indicator
ButtonNew_Click
ButtonDelete_Click
check if user pressed OK or CANCEL
OK to delete?"
DELETE
Delete failed, code: "